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— BcdMerge.Mesa Edited by Sandman on September 26, 1977 4:53 PM 

DIRECTORY 

AltoOefs: FROM "altodefs", 
AltoFileDefs: FROM "altof i ledef s" , 
BcdDefs: FROM "bcddefs", 
BcdMergeDefs: FROM "bcdmergedefs" , 
BcdTabDefs: FROM "bcdtabdef s" , 
BcdTableDefs: FROM "bcdtabledef s" , 
LoaderBcdUtilDefs: FROM "loaderbcduti Idefs" , 
ControlDefs: FROM "ControlDef s" , 
FrameDefs: FROM "f ramedef s" , 
InlineDefs: FROM " in! inedef s" , 
LoadStateDef s: FROM "loadstatedef s" , 
MiscDefs: FROM "miscdefs", 
OsStaticDefs: FROM "osstaticdef s" , 
SegmentDefs: FROM "segmentdef s'\ 
StringOefs: FROM "s tr ingdef s" , 
SystemDefs: FROM "systemdef s'\ 
TimeDefs: FROM "timedefs"; 

DEFINITIONS FROM LoadStateDef s , LoaderBcdUtilDefs, BcdDefs; 

BcdMerge: PROGRAM 

IMPORTS BcdTabDefs , BcdTableDefs, FrameDefs, LoaderBcdUtilDefs, LoadStateDef s , 

MiscDefs, SegmentDefs, StringDefs, SystemDefs 
EXPORTS BcdMergeDefs = PUBLIC 
BEGIN 

GlobalFrameHandle: TYPE * ControlDef s .Global FrameHandle; 
HTIndex: TYPE = BcdTabDefs . HTIndex ; 

SubStringDescriptor: TYPE * StringDefs .SubStr ingDescr iptor ; 
Substring: TYPE = StringDefs .Substring ; 

bcdheader: BcdDefs. BCD; 

bed: BcdBase; -- bed being merged; 

configOffset: CARDINAL; 

NullVersion: BcdDefs .Vers ionStamp = [zapped: FALSE, net: 0, host: 0, time: [0,0]]; 

mtb, ftb, ctb, itb, etb, ntb: BcdTableDef s . TableBase ; 

ssb: STRING; 

Notifier: PRIVATE BcdTabl eDef s . TableNotif ier * 

BEGIN OPEN BcdTableDefs; 

mtb <- base[mttype] ; 

ftb «- base[fttype]; 

ctb <- base[cttype] ; 

itb *■ base[imptype] ; 

etb «- base[exptype] ; 

ntb <- base[n ttype] ; 

ssb ♦■ LOOPHOLE[base[sstype]]; 
END; 

EnterName: PROCEDURE [ss: Substring] RETURNS [NameRecord] = 
BEGIN OPEN BcdTabDefs; 
lss: SubStringDescriptor; 
hti: HTIndex = EnterStri ng[ss] ; 
SubStringForHash[@lss,hti]; 
RETURN[[lss.offset, lss . length]] ; 
END; 

MapName: PROCEDURE [bed: BcdBase, n: NameRecord] RETURNS [NameRecord] = 
BEGIN 
ss: SubStringDescriptor *• 

[base: LOOPHOl E[bcd+bcd . ssOf f set] , offset: n. offset, length: n. length]; 
RETURN[EnterName[@ss]]; 
FND; 

MapEquivalentName: PROCEDURE [bed: BcdBase. n: NameRecord] RETURNS [NameRecord] = 
BTGTN 

found: BOOLEAN; 
hti: HTIndex; 
ss: SubStringDescriptor «- 

[base: LOOPH01 E[bcd+bcd . ssOff set] . offset: n. offset, length: n. length]; 
[found, hti] «- BcdTabDefs . T indTqu lval entStr ing[@ss] ; 
RrTURN[ir found THTN NameTorH t i [h t i ] ri SE En terName[@ss]] ; 
END; 
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HtiForName: PROCEDURE [bed: BcdBase, n: NameRecord] RETURNS [HTIndex] * 
BEGIN 

RETURN[Ht1Name[LOOPHOLE[bcd+bcd.ssOffset], n]]; 
END; 

HtiName: PROCEDURE [ssb: STRING, n: NameRecord] RETURNS [HTIndex] = 
BEGIN 

ss: SubStringDescriptor «- [base: ssb, offset: n. offset, length: n. length]; 
RETURN[BcdTabDefs.FindString[8ss].hti]; 
END; 

NameForHti: PROCEDURE [hti: BcdTabDefs . HTIndex] RETURNS [NameRecord] » 
BEGIN 

ss: SubStringDescriptor; 
BcdTabDefs.SubStringForHash[9ss, hti]; 
RETURN[[ss. offset, ss. length]]; 
END; 

EquivalentVersions: PROCEDURE [vl, v2: POINTER TO BcdDef s. VersionStamp] 
RETURNS [BOOLEAN] * 
BEGIN 

RETURN[vl. zapped OR v2. zapped OR vlt = v2t] 
END; 

MergeFile: PROCEDURE [bed: BcdBase, oldfti: FTIndex] 
RETURNS [f ti: FTIndex] = 
BEGIN OPEN BcdTableDefs; 

oldftb: CARDINAL * LOOPHOLE[bcd+bcd . f tOf f set] ; 
ftLimit: FTIndex = LOOPHOLE[Tabl eBounds[f ttype] . size] ; 
fn: NameRecord; 

IF oldfti = FTSelf THEN RETURN[WhoIsFTSel f []] ; 
fn <- MapEquivalentName[bcd , (oldf tb+oldf ti) . name] ; 
FOR fti «- FIRST[FTIndex], f ti+SIZE[FTRecord] 
UNTIL fti = ftLimit DO 

OPEN new: f tb+f ti , old: oldf tb+ol df ti ; 
IF new. name = fn THEN 
BEGIN 
SELECT TRUE FROM 

(new. version = NullVersion) => 

BEGIN new. version ♦- old. version; RETURN END; 
Equi va Ten tVers ions [@new. version, Sold. vers ion], 
(old. version = NullVersion) => 
BEGIN 

IF old. version .zapped THEN new. version . zapped «• TRUE; 
RETURN 
END; 
ENDCASE; 
END; 
ENDLOOP; 
fti «- Allocate[fttype, SIZE[FTRecord]] ; 

(ftb+fti)t *- [name: fn, version: (oldf tb+oldf ti ). version] ; 
RETURN 
END; 
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nextDummyGf i : GFTIndex; 

GetDummyGfi: PROCEDURE [n: CARDINAL] RETURNS [gfi: GFTIndex] = 
BEGIN 

gfi «- nextDummyGf i ; 
nextDummyGf i «- nextDummyGf i + n; 
RETURN 
END; 

nextGfi: GFTIndex; 

GetGfi: PROCEDURE [n: CARDINAL] RETURNS [gfi: GFTIndex] = 
BEGIN 

gfi «- nextGfi ; 
nextGfi +• nextGfi + n; 
RETURN 
END; 

MergeModule: PUBLIC PROCEDURE [frame, copied: Global FrameHandle, initialGFT: LoadStateGFT] 
BEGIN OPEN BcdTableDefs; 
ccgf i : GFTIndex; 
mti, newmti: MTIndex; 
i: CARDINAL; 

ccgfi «- initia!GFT[copied .gf tindex . gf tindex] . gfi ; 

FOR mti <- FIRST[MTIndex], mti + SIZE[MTRecord] + (mtb+mti ). frame, length - 1 
UNTIL mti = LOOPHOLE[TableBounds[mttype] . size , MTIndex] DO 
IF (mtb+mti). gfi = ccgfi THEN EXIT; 
REPEAT FINISHED => ERROR; 
ENDLOOP; 
newmti «- Allocate[mttype, SIZE[MTRecord] + (mtb+mti ). frame. 1 ength - 1 
! TableOverf low => 
BEGIN 

ExpandTable[] ; 

RESUME [table, tablePages'Al toDef s . PageSize] ; 
END]; 
InlineDefs.COPY[ 

from: mtb+mti, to: mtb+newmti, nwords: SIZE[MTRecord]+(mtb+mti ). frame. length-1] ; 
(mtb+newmti ) . namedinstance «- FALSE; 

(mtb+newmti ). gfi ♦■ ini t i alGFT[frame .gf tindex . gf tindex] . gfi ; 
FOR i IN [0. . (mtb+newmti ) .frame. length) DO 
OPEN new: mtb+newmti, copy: mtb+mti; 
IF new. frame. frag[i ]. gfi IN [copy . gfi .. copy . gfi+copy. ngfi ) THEN 

new. frame. frag[i] . gfi «- new. gfi + copy . frame. frag[ i ]. gfi - copy. gfi; 
ENDLOOP; 
END; 
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MergeModuleTable: PROCEDURE [Reloc: Relocation, 
config: Configlndex, initialGFT: LoadStateGFT , code, symbols: BOOLEAN] = 
BEGIN OPEN BcdTableDefs; 

MoveModule: PROCEDURE [oldmtb: CARDINAL, mti: MTIndex] RETURNS [BOOLEAN] = 
BEGIN OPEN old: oldmtb+mti; 
rgfi: GFTIndex «- Reloc[old.gf i]; 

GFT: POINTER TO ARRAY [0..1) OF ControlDef s . GFTI tern = REGISTER[ControlDef s .GFTreg]; 
frame: Global FrameHandle ♦■ GFTt[rgfi] .frame; 
newmti: MTIndex; 
i: CARDINAL; 

IF ~FrameDefs.DeletedFrame[rgfi] THEN 
BEGIN OPEN new: mtb+newmti; 
bcdheader .nModules ♦• bcdheader .nModules + 1; 
newmti «- Allocate[mttype, SIZE[MTRecord]+old. frame. length~l] ; 
new. name ♦• MapName[bcd, old. name]; 
IF old. namedinstance THEN 
BEGIN 

EnterName I nTable[[module[ newmti]], MapName[bcd, FindName[bcd , [module [mti ]]]]]; 
new. namedinstance *• TRUE 
END 
ELSE new. namedinstance <- FALSE; 
new. file «- MergeFile[bcd , old. file]; 
new.cseg ♦- old . cseg; 
new.sseg ♦•old. sseg; 
new.cseg. f ile <- 

IF code THEN FTSelf ELSE new. cseg . file «- MergeFile[bcd, old. cseg . file] ; 
new. sseg. file * 

IF symbols THEN FTSelf ELSE new. sseg. fi le ♦- MergeFile[bcd , old. sseg. fi le] ; 
new.gfi ♦• initialGFT[Reloc[old . gf i]] . gf i ; 
new. fsi ♦- old . f si ; 
new. ngf i + old. ngf i ; 
new. frame ♦- old. frame; 
InlineDefs.COPY[ 

from: f rame+ol d . f rame.of f set , 
to: Qnew. frame . frag , 
nwords: ol d . frame . length] ; 
FOR i IN [0. .old. frame. length) DO 
OPEN link: new . frame . frag[ i ] ; 
IF link = UnboundLink OR link = NullLink THEN 

link ♦" AddImport[old . frame. frag[i]] 
ELSE 

SELECT link. tag FROM 
frame => 

BEGIN OPEN f: LO0PHOLE[l ink , Global FrameHandl e] ; 
IF F r ameDefs. Dele ted Frame[l ink.gf i] 

THEN link «- AddNewImport[ol d . frame. frag[i]] 
ELSE link.gfi ♦■ ini tia!GFT[f . gf tindex . gf tindex] . gf i ; 
END; 
procedure => 

IF F r ameDe fs. Dele ted Frame[l ink.gf i] 

THEN link ♦- AddNewImport[ol d . frame . frag[ i ]] 
ELSE link.gfi ♦• in i tia!GFT[l ink . gf i ] . gf i ; 
ENDCASE; 
ENDLOOP; 
IF old. config # CTNull THEN 
BEGIN 

new. config ♦- ol d. conf ig+conf igOf f set; 

IF ( new. conf ig + ctb) . control = mti THEN ( new. conf ig+ctb) . control «- newmti; 
END 
ELSE new. config +■ CTNull; 
END 
ELSE IT old. config n CTNull AND ( ol d . conf i g+ctb+conf igOffse t ). con trol = mti THEN 

(old . conf lg+ctb+conf igOf fset) . control •• MTNull; 
RCTURN[FALSC]; 
END: 
[] ♦- EnumerateModuleTable[bcd, MoveModule]; 
END; 



bcdmERGE.mESA 24-0CT-77 21:15:31 Page 6 



MergeExportTable: PROCEDURE [Reloc: Relocation, initialGFT: LoadStateGFT] = 
BEGIN 

MapExport: PROCEDURE [oldetb: CARDINAL, eti: EXPIndex] RETURNS [BOOLEAN] = 
BEGIN OPEN old: oldetb+eti; 
neweti: EXPIndex; 

oldftb: CARDINAL <- LOOPHOLE[bcd+bcd. f tOffset] ; 
oldssb: STRING <- LOOPHOLE[bcd+bcd.ssOff set] ; 
i, size: CARDINAL; 
found: BOOLEAN; 
hti: HTIndex; 

oldname: StringDefs . SubStringDes crip tor; 

oldname «- [base: oldssb, offset: old . name. of f set , length: old . name, length] ; 
[found, hti] «- BcdTabDef s .FindString[@oldname]; 
IF found THEN 

FOR neweti ♦- FIRST[EXPIndex] , neweti + size 

UNTIL neweti = LOOPHOLE[BcdTableDef s . TableBounds[Bcd T ableDef s. exptype] .size] DO 
OPEN new: etb+neweti; 
size *• new.size+SIZE[EXPRecord]-l ; 

IF hti = HtiName[ssb, new. name] AND new. port s old. port THEN 
BEGIN OPEN oldfile: oldf tb+old . f i le , newfile: ftb+new. f ile; 
oldname . off set ♦• oldf ile , name. of f set; oldname. length «- oldf ile . name, length ; 
IF BcdTabDef s . FindEqui val entString[@ol dname] . found AND 
EquivalentVersions[@o1df i le. vers ion , Qnewfi le .version] THEN 
BEGIN 
FOR i IN [0. .old. size) DO 

IF old. 1 inks[i ] .gf i # THEN -- assumes that most recently loaded config 

-- merged last 
BEGIN 

new.links[i] <- old . 1 inks[i] ; 

new. 1 inks[i] .gf i ♦- initi a!GFT[Reloc[old . 1 inks[i ] . gf i ]] . gf i ; 
END; 
ENDL00P; 
IF -new. namedinstance AND ol d . namedinstance THEN 
BEGIN 

new. namedinstance *• TRUE; 
EnterNameInTable[[export[newet i]] , 

MapName[bcd, FindName[bcd , [export[et i]]]]]; 
END; 
RETURN[FALSE]; 
END; 
END; 
ENDL00P; 
[] ♦- MakeNewExport[oldetb , eti, Reloc, initialGFT]; 
RETURN[FALSE]; 
END; 
[] ♦• EnumerateExportTable[bcd, MapExport]; 
END; 

MakeNewExport: PROCEDURE [ 
oldetb: CARDINAL, eti: EXPIndex, Reloc: Relocation, initialGFT: LoadStateGFT] 
RETURNS [neweti: EXPIndex] = 
BEGIN OPEN old: oldetb+eti, new: etb+neweti; 
i: CARDINAL; 

bcdheader . nExports «- bcdheader . nExports + 1; 

neweti <- BcdTableDefs .Al locate[BcdTableDefs .exptype, old. size+SIZE[EXPRecord]-l] ; 
FOR i IN [0. .old. size) DO 

new.links[i] «- ol d . 1 inks[ i] ; 

new. 1 inks[ i] . gf i +• in i t ialGFT[Reloc[ol d . 1 inks[i ] . gf i ]] . gf i ; 

ENDL00P; 
new. name <- MapName[bcd, old. name]; new. file «- MergeF i le[bcd , old. file]; 
new. port ♦- old. port; new. size «- old. size; 
TT ol d . named ins tance THEN 

BEGIN 

new. namedinstance «- TRUE; 

FnterNameTnTable[[expor t[neweti ]] , MapName[bcd, F indName[bcd , [expor t[et i ]]]]] ; 

END 
ELSF new . named i ns tance «- FALSE; 
CND; 
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Addlmport: PROCEDURE [link: ControlLink] RETURNS [Control Link] * 
BEGIN 

Findlmport: PROCEDURE [olditb: CARDINAL, iti: IMPIndex] RETURNS [BOOLEAN] = 
BEGIN OPEN imp: olditb+iti; 

RETURN [link.gfi IN [imp.gfi .. imp .gf i+imp.ngf i )] ; 
END; 
iti, newiti: IMPIndex; 

oldftb: CARDINAL ♦• LOOPHOLE[bcd+bcd . f tOf f set] ; 
olditb: CARDINAL ♦• LOOPHOLE[bcd+bcd . impOff set]; 
oldssb: STRING <- LOOPHOLE[bcd+bcd . ssOf f set] ; 
oldname: SubStringDescriptor ; 
found: BOOLEAN; 
hti: HTIndex; 

iti ♦- EnumerateImportTable[bcd, Findlmport]; 
IF iti = BcdDefs.IMPNull THEN RETURN[AddNewImpor t[l ink]] ; 
BEGIN OPEN new: itb+newiti, old: olditb+iti; 

oldname ♦* [oldssb, old . name. of fset , old . name, length] ; 
[found, hti] «- BcdTabDef s . FindString[@oldname]; 
IF found THEN 

FOR newiti <- FIRST[IMPIndex] , newiti + SIZE[IMPRecord] 

UNTIL newiti = LOOPHOLE[BcdTableDef s . TableBounds[BcdTableDef s . imptype] .size] DO 
IF hti = HtiName[ssb, new. name] THEN 

BEGIN OPEN oldfile: ol d f tb+ol d . f i 1 e , newfile: f tb+new . f i 1 e; 
oldname. offset <- oldf i le . name . of fset; oldname. length <- oldfi le. name, length; 
IF BcdTabDefs. FindEqui valentString[@o1dname] . found AND 
Equi valentVersions[@ol dfi le . version , Qnewfi le. version] THEN 
BEGIN 

IF ~new. namedinstance AND old . namedins tance THEN 
BEGIN 

new. namedinstance <- TRUE; 
EnterNameIntable[[ import[newiti]] , 

MapName[bcd, FindName[bcd , [import[i ti ]]]]] ; 
END; 
link.gfi «- new.gfi + link.gfi - old.gfi; 
RETURN[link]; 
END-. 
END; 
ENDLOOP; 
bcdheader . nlmports ♦• bcdheader . nlmports + 1; 

newiti ♦• BcdTableDefs .Al locate[BcdTabl eDefs . imptype, SIZE[IMPRecord]] ; 
new. name <- MapName[bcd, old. name]; 
new. file ♦- MergeFi le[bcd , old. file]; 
IF old. namedinstance THEN 
BEGIN 

new. namedinstance «- TRUE; 

EnterNameInTable[[import[newiti]] , MapName[bcd, FindName[bcd , [ import[ iti ]]]]] ; 
END 
ELSE new. namedinstance «• FALSE; 
new.gfi *■ GetDummyGf i[new . ngf i ♦- old.ngfi]; 
new. por t ♦- old . port; 

link.gfi ♦- new.gfi + link.gfi - old.gfi; 
END; -- of OPEN 
RETURN[1 ink]; 
END; 

AddNewImport: PROCEDURE [link: ControlLink] RETURNS [ControlLink] = 
BEGIN 

1 ink.gf i ♦- 0; 
1 ink . ep ♦• ; 

RETURN[1 ink] ; -- Currently cannot make a new import 
END; 
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MergeConfigTable: PROCEDURE [size: CARDINAL] RETURNS [delta: CARDINAL] = 
BEGIN 

ConfigMap: PROCEDURE [oldctb: CARDINAL, cti: CTIndex] RETURNS [BOOLEAN] = 
BEGIN 

OPEN new: del ta+ctb+cti , old: oldctb+cti; 
new. name <- MapName[bcd, old. name]; 
IF old. namedinstance THEN 

BEGIN 

EnterNameInTable[[conf ig[del ta+cti]] , MapName[bcd, FindName[bcd , [conf ig[cti]]]]] ; 

new. namedinstance <- TRUE 

END 
ELSE new. namedinstance <~ FALSE; 
new. control <- old. control; 

new. file ♦- IF old. file = FTSelf THEN FTSelf ELSE MergeFile[bcd , old. file]; 
new.config ♦- IF old.config = CTNull THEN CTNull ELSE old. conf ig+delta; 
RETURN[FALSE]; 
END; 

delta «- LOOPHOLE[BcdTableDefs.Allocate[BcdTableDefs.cttype, size]]; 

bcdheader .nConf igs ♦• bcdheader .nConf igs + bed .nConf igs ; 

[] «- EnumerateConf igTable[bcd , ConfigMap]; 

RETURN 

END; 

EnterNamelnTable: PROCEDURE [owner: Namee, name: NameRecord] = 
BEGIN 

nti: NTIndex <- BcdTableDefs . Allocate[BcdTableDef s . nttype, SIZE[NTRecord]] ; 
(ntb+nti)t <- [name, owner]; 
END; 

bcdFile: FTIndex; 
name: STRING; 

WhoIsFTSelf: PROCEDURE RETURNS [FTIndex] = 
BEGIN 

ss: StringDef s . SubS tr i ngDescr iptor «- [base: name, offset: 0, length: name . length] ; 
IF bcdFile = BcdDef s . FTNull THEN 

BEGIN 

bcdFile <- BcdTableDefs .Al locate[BcdTableDefs . fttype, SIZE[BcdDef s . FTRecord]] ; 

(f tb+bcdFi le)t <- [EnterName[@ss] , bed . version]; 

END; 
RETURN[bcdFile]; 
END; 

MergeBcd: PUBLIC PROCEDURE [mergee: BcdBase, RealFromRel: Relocation, config: Configlndex, 
initialGFT: LoadStateGFT , code, symbols: BOOLEAN, bedname: STRING] = 
BEGIN 
BEGIN 

ENABLE BcdTableDefs. TableOverFlow => 
BEGIN 

ExpandTable[]; 

RESUME [table, tablePages*Al toDef s . PageSize] ; 
END; 
bed <- mergee; 
bcdFile ♦• FTNull; 
name ♦• bedname; 
configOffset <- IF bcd.nConfigs = THEN 

ELSE MergeConf igTabl e[L0OPH0LE[bcd . ctLimi t , CARDINAL]]; 
MergeModu1eTable[RealFromRel , config, initialGFT, code, symbols]; 
Me rge£xportTable[ RealFromRel , initialGFT]; 
END; 
END: 

MergedBcdSize: PUBLIC PROCEDURE RETURNS [size: CARDINAL] = 
BTGIN OPEN bcdheader, BcdTableDefs; 
s: CARDINAL; 
size <- SIZr[BCD]; 

ssOffset ♦• size; size <- size + (ssLimit ♦- TableBounds[sstype] . size) ; 
ctOffset «- size; size «- size + ( s «- TableBounds[cttype]. s ize) ; 
ctLimit <- LOOPHOLE[s, CTIndex]; 

mtOffset «- size; size «- size + ( s *- TableBounds[mttype] . s ize) ; 
mtl. imit «- L00PH0lF[s, MTIndex]; 

impOffset <- size; size «- size + ( s <- TableBounds[ imptype] . size) ; 
impl imit ♦- L00PH0ir[s. IMPIndex]; 
expOffset *• size; size «- size + ( s «- Tabl eBounds[exp type] . s ize) ; 
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expLimit *- LOOPHOLE[s, EXPIndex]; 

ftOffset «- size; si2e «• size + (s ♦- TableBounds[f ttype] .size) ; 

ftLimit ♦■ LOOPHOLE[s, FTIndex]; 

ntOffset <- size; size «- size + (s «- Tab1eBounds[nttype].size) ; 

ntLimit <- LOOPHOLE[s, NTIndex]; 

nPages «- SysternDefs. PagesForWords[size]; 

nDummies ♦■ GetDummyGf i[0]-f irstdummy; 

END; 



bcdmERGE.mESA 24-OCT-77 21:15:31 Page 10 



WriteMergedBcd: PUBLIC PROCEDURE [movewords: PROCEDURE [POINTER, CARDINAL]] = 
BEGIN OPEN BcdTableDefs; 
base: TableBase; 
size: CARDINAL; 

movewords[@bcdheader, SIZE[BcdDefs.BCD]]; 
[base, size] «- TableBounds[sstype]; 
movewords[LOOPHOLE[base], size]; 
[base, size] ♦■ TableBounds[cttype]; 
movewords[LOOPHOLE[base], size]; 
[base, size] <- TableBounds[mttype]; 
movewords[LOOPHOLE[base], size]; 
[base, size] «- TableBounds[imptype]; 
movewords[LOOPHOLE[base], size]; 
[base, size] «- TableBounds[exptype]; 
movewords[LOOPHOLE[base], size]; 
[base, size] «- TableBounds[fttype]; 
movewords[LOOPHOLE[base], size]; 
[base, size] «- TableBounds[nttype]; 
movewords[LOOPHOLE[base] , size]; 
END; 

-- Administrative Procedures 

table: CARDINAL; 
expandedtable: BOOLEAN «- FALSE; 
tableSegment: SegmentDef s . Fi leSegment Handle ; 
tablePages: CARDINAL; 

InitializeMerge: PUBLIC PROCEDURE [sizeoftable: CARDINAL, lastrealgfi: GFTIndex] = 
BEGIN OPEN BcdTableDefs; 
time: AltoFi leDef s .TIME ; 

net: CARDINAL ♦- MiscDef s .GetNetworkNumber[] ; 
tablePages «- SystemDefs . PagesForWords[sizeof table] ; 
table «- LOOPHOLE[SystemDefs.AnocatePages[tablePages], CARDINAL]; 
Initial izeTable[t able, tab! eP ages *A1 toDefs . PageSize]; 
AddNotify[Not-=f ier]; 
BcdTabDefs.BcdTabInit[]; 
nextGfi ♦- 1; 

MiscDefs.Zero[Qbcdheader, SIZE[BcdDef s . BCD]] ; 
bcdheader . f irstdummy «- nextDummyGfi <- 1 astrealgf i + 1 ; 
bcdheader . versionident <- BcdDefs . VersionID; 
time ♦• MiscDefs.DAYTIME[]; 
bcdheader . vers ion ♦- BcdDefs .Vers ionStamp[ 

time: TimeDef s . PackedTime[lowbi ts : time. low, highbits: time. high], 

zapped: FALSE, 

net: net, 

host: OsS tat i cDef s. OsSt at ics. Serial Number] ; 
bcdheader . definitions <- FALSE; 
RETURN 
END; 

Final izeMerge: PUBLIC PROCEDURE = 
BEGIN OPEN BcdTableDefs; 
BcdTabDefs.BcdTabErase[]; 
DropNot ify[Notif ier]; 
EraseTable[] ; 
IT expandedtable THEN 

BEGIN OPEN SegmentDefs; 

Unlock[ tableSegment] ; 

DeleteF i 1 eSegment[ tableSegment] 

END 
ELSE SystemDefs.FreeSegment[LOOPHOLE[ table]] ; 
RETURN 
END; 

ExpandTable: PROCEDURE = 
BEGIN OPEN SegmentDefs; 
IE -expandedtable THEN 
BEGIN 
tableSegment ♦• NewF i leSegmen t[ 

NewE i le[ M swa tee" , Read+Wr i te+Append , Def aul tVers ion] , 
1. 

tablePages , 
Read+Wr i tej; 
ChangeDataToE i I eSegmen t[VMtoDa taSegmen t[l OOPHOLE[ table]] . tableSegment]; 
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expandedtable <- TRUE; 

END; 
Un1ock[tab1eSegment]; SwapOut[tab1eSegment] ; 

MoveFileSegment[tab1eSegment, DefaultBase, tablePages «• tablePages + l]; 
SwapIn[tableSegment] ; 

table «- LOOPHOLE[FileSegmentAddress[tableSegment], CARDINAL]; 
END; 

END. 



